(find-function-on-key): Fix previous

change.

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index a37e64502dce921f42f44dc7921bacbb89885a5a..3ae98c08a399f4e1a957152826456cec1d903426 100644 (file)
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -352,7 +352,7 @@ See `find-variable' for more details."
 Point is saved if FUNCTION is in the current buffer."
   (interactive "kFind function on key: ")
   (save-excursion
-    (let* ((event (aref key 0))
+    (let* ((event (and (eventp key) (aref key 0))) ; Null event OK below.
           (start (event-start event))
           (modifiers (event-modifiers event))
           (window (and (or (memq 'click modifiers) (memq 'down modifiers)